home *** CD-ROM | disk | FTP | other *** search
/ Celestin Apprentice 2 / Apprentice-Release2.iso / Source Code / Libraries / SAT 2.1.2 / Zkrolly ƒ / sXprite.p < prev    next >
Encoding:
Text File  |  1994-06-02  |  763 b   |  51 lines  |  [TEXT/PJMM]
  1. unit sXprite;
  2.  
  3. interface
  4.  
  5.     uses
  6.         SAT;
  7.  
  8.     var
  9.         Xface: FacePtr;
  10.  
  11.     procedure initXprite;
  12.     procedure SetupXprite (me: SpritePtr);
  13.     procedure HandleXprite (me: SpritePtr);
  14.  
  15. implementation
  16.  
  17.     const
  18.         xpeed = 2;
  19.  
  20.     procedure initXprite;
  21.     begin
  22.         Xface := GetFace(130);
  23.     end;
  24.  
  25.     procedure SetupXprite (me: SpritePtr);
  26.     begin
  27.         me^.mode := 0;
  28.         me^.speed.h := xpeed;
  29.         me^.face := Xface;
  30.         me^.task := @HandleXprite;
  31.     end;
  32.  
  33.     procedure HandleXprite (me: SpritePtr);
  34.     begin
  35.         with me^ do
  36.             begin
  37. {if mode < 1 then Face := nil;{test av faceless}
  38.  
  39.                 position.h := position.h + speed.h;
  40.                 if position.h > gSAT.offSizeH then {400}
  41.                     begin
  42.                         speed.h := -xpeed;
  43.                     end;
  44.                 if position.h < -20 then {50}
  45.                     begin
  46.                         speed.h := xpeed;
  47.                     end;
  48.             end;
  49.     end;
  50.  
  51. end.